home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
ABUSESRC.ZIP
/
AbuseSrc
/
macabuse
/
imlib
/
glread.c
< prev
next >
Wrap
C/C++ Source or Header
|
1997-05-20
|
3KB
|
140 lines
#include "macs.hpp"
#include "image.hpp"
#include "palette.hpp"
#include "video.hpp"
#include "system.h"
#include "dprint.hpp"
#include <stdio.h>
image *read_glfont(char *fn)
{
image *im,*sub;
unsigned short length,y;
unsigned char size,first,width,height,gsize,last;
FILE *fp;
fp=fopen(fn,"rb");
if (!fp) return NULL;
fread(&length,1,2,fp); length=int_to_local(length);
fread(&size,1,1,fp);
fread(&first,1,1,fp);
if (size+first>255) { set_error(imFILE_CORRUPTED); fclose(fp); return NULL; }
fread(&width,1,1,fp);
fread(&height,1,1,fp);
fread(&gsize,1,1,fp);
make_block(sizeof(image));
im=new image(width*32,height*8);
make_block(sizeof(image));
sub=new image(width,height);
im->clear(); // in case all the fonts aren't in the file, clear extra area
last=first+size-1;
while (first<=last)
{
for (y=0;(int)y<(int)height;y++)
{
fread(sub->scan_line(y),1,gsize/height,fp);
sub->unpack_scanline(y);
}
sub->put_image(im,(first%32)*width,(first/32)*height);
first++;
}
delete sub;
return im;
}
image *read_pic(char *fn, palette *&pal)
{
image *im;
char x[4],bpp;
unsigned char *sl,esc,c,n,marker,vmode;
unsigned short w,h,len,bufsize,blocks,sn,esize,edesc;
int xx,yy;
FILE *fp;
im=NULL;
fp=fopen(fn,"rb");
fread(&x[0],1,2,fp);
fread(&w,1,2,fp);
fread(&h,1,2,fp);
w=int_to_local(w); h=int_to_local(h);
fread(x,1,4,fp);
fread(&bpp,1,1,fp);
fread(&marker,1,1,fp);
if (marker!=0xff)
{ fclose(fp); set_error(imFILE_CORRUPTED); return NULL; }
im=new image(w,h);
fread(&vmode,1,1,fp);
fread(&edesc,1,2,fp);
edesc=int_to_local(edesc);
fread(&esize,1,2,fp);
esize=int_to_local(esize);
if (esize==768 && !pal)
{ pal=new palette(1<<bpp);
fread(pal->addr(),1,(1<<bpp)*3,fp);
pal->shift(2);
}
else if (esize)
fseek(fp,esize,SEEK_CUR);
fread(&blocks,1,2,fp);
blocks=int_to_local(blocks);
yy=h; xx=w;
while (blocks-- && w>=1 && yy>=0)
{
fread(&bufsize,1,2,fp);
bufsize=int_to_local(bufsize);
fread(&len,1,2,fp);
len=int_to_local(len);
fread(&esc,1,1,fp);
while (yy>=0 && len)
{
fread(&c,1,1,fp);
if (c!=esc)
{
if (xx>=w) { yy--; xx=0; sl=im->scan_line(yy);
if (yy==h) dprintf("bufsize=%d\n",bufsize); CHECK(yy<h); }
sl[xx++]=c; len--;
}
else
{
fread(&n,1,1,fp);
if (n!=0)
{
fread(&c,1,1,fp);
while (n-- && yy>=0 && len)
{
if (xx>=w) { yy--; xx=0; sl=im->scan_line(yy);
if (yy==h) dprintf("bufsize=%d\n",bufsize); CHECK(yy<h); }
sl[xx++]=c; len--;
}
}
else
{
fread(&sn,1,2,fp);
sn=int_to_local(sn);
fread(&c,1,1,fp);
while (sn-- && yy>=0 && len)
{
if (xx>=w) { yy--; xx=0; sl=im->scan_line(yy); CHECK(yy<h); }
sl[xx++]=c; len--;
}
}
}
}
}
fclose(fp);
return im;
}
image *read_clp(char *fn)
{
palette *pal=NULL;
image *im=read_pic(fn,pal);
if (pal) delete pal;
return im;
}